home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64 / wortspiel v7.2 (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  4KB  |  142 lines
  1. 1000 df$(1)="'ich weiss nicht, was soll es bedeuten'"
  2. 1100 df$(2)="alle heinolieder":df$(3)="den enzian-rap"
  3. 1200 df$(4)="die nationalhymne bayerns":df$(5)="die internationale"
  4. 1300 df$(6)="'am brunnen vor dem tore'":df$(7)="'sur le pont d'avignon'"
  5. 1400 df$(8)="'mistdobalina mistabobdobalina'"
  6. 1500 aw$(2)="daran, die uhrzeit abzulesen":aw$(1)="an seinem comeback"
  7. 1600 aw$(3)="an der spaltung des bieratoms":aw$(5)=""
  8. 1700 aw$(4)="daran, sich laecherlich zu machen"
  9. 1800 print"[147][144]";chr$(142);chr$(8):poke53280,11:poke 53281,11
  10. 1900 rem*******************************
  11. 2000 data magnus,jacques,rudi,ulf,martin,stephan,ingmar,henrik,hendrick
  12. 2100 :
  13. 2200 data rudi,fliegt,singt,mutiert,terminiert,versteckt sich,verirrt sich
  14. 2300 :
  15. 2400 data macht,schlumpft,spielt,arbeitet,barfuss
  16. 2500 :
  17. 2600 data bei strahlendem sonnenschein,unter missachtung aller vorschriften
  18. 2700 :
  19. 2800 data mit buschhut und variomat-sonnenbrille,laut zischend
  20. 2900 :
  21. 3000 data trotz schriftlicher proteste
  22. 3100 :
  23. 3200 data nach sorgfaeltiger planung,am 30.mai,unter starker rauchentwicklung
  24. 3300 :
  25. 3400 data zusammen mit ,unter,auf,in,hinter,vor,unter
  26. 3500 :
  27. 3600 data auf,in,hinter,vor,der riesenkobra,den truemmern der konzerthalle
  28. 3700 :
  29. 3800 data der muelltonne,der ausverkauften konzerthalle,einem panzer
  30. 3900 data der bruecke,diesem gebaeude,der dvu-zentrale
  31. 4000 data der bahnhofstoilette,der lavafontaene
  32. 4100 :
  33. 4200 :
  34. 4300 rem*einlesen**********************
  35. 4400 :
  36. 4500 :
  37. 4600 for a=1 to 50:read a$
  38. 4700 if a<11 then na$(a)=a$
  39. 4800 if a>10 and a<21 then ve$(a-10)=a$
  40. 4900 if a>20 and a<31 then ad$(a-20)=a$
  41. 5000 if a>30 and a<41 then pr$(a-30)=a$
  42. 5100 if a>40 and a<51 then no$(a-40)=a$
  43. 5200 next
  44. 5300 :
  45. 5400 :
  46. 5500 rem*zufallszahlen*****************
  47. 5600 :
  48. 5700 :
  49. 5800 for a=1 to 5:b(a)=int(10*rnd(1))+1:next
  50. 5900 :
  51. 6000 rem*kontrolle auf grammatik*******
  52. 6100 :
  53. 6200 :
  54. 6300 if b(5)=6 then gosub 13800
  55. 6400 if b(2)=1 then gosub 12300
  56. 6500 if b(2)=6 then gosub 12000
  57. 6600 if b(2)=8 and  b(5)=9 then b(4)=3:no$(b(5))="der kloschuessel":gh=1
  58. 6700 if b(3)=10 then v=3: gosub 12700
  59. 6800 if b(5)=1 then gosub 14600
  60. 6900 :
  61. 7000 :
  62. 7100 rem*ausdruck**********************
  63. 7200 :
  64. 7300 :
  65. 7400 if kv<>1 then as$=" "
  66. 7500 printna$(b(1)):printve$(b(2)):printad$(b(3));:printas$:kv=2
  67. 7600 printpr$(b(4));"";
  68. 7700 printno$(b(5))
  69. 7800 :
  70. 7900 :
  71. 8000 rem*kontrolle auf anhaengsel******
  72. 8100 :
  73. 8200 :
  74. 8300 if b(2)=3 then v=2:gosub 12700
  75. 8400 if b(2)=4 then v=4:gosub 12700
  76. 8500 if b(2)=2 then gosub 14500
  77. 8600 ifdw=1 then print"heraus":dw=2
  78. 8700 if b(2)=7 then v=1:gosub 12700
  79. 8800 if b(2)=8 and gh<>1 then print"im boden":gh=2
  80. 8900 if b(2)=9 then print"mit ";:gosub 10100
  81. 9000 if b(2)=10 then gosub 14400
  82. 9100 ifdw=1 then print"heraus":dw=2
  83. 9200 :
  84. 9300 :
  85. 9400 rem*ruecksprungabfrage************
  86. 9500 :
  87. 9600 :
  88. 9700 print
  89. 9800 get c$:if c$="" then 9800
  90. 9900 print:goto 5800
  91. 10000 rem*anhaengsel fuer 'spielt'*****
  92. 10100 a=int(9*rnd(1))+1
  93. 10200 if a=1 then print"al bundy";
  94. 10300 if a=2 then print"darabor";
  95. 10400 if a=3 then print"einem pappkarton";
  96. 10500 if a=4 then print"sich selbst";
  97. 10600 if a=5 then print"erika berger";
  98. 10700 if a=6 then print"hella von sinnen";
  99. 10800 if a=7 then print"theo waigel";
  100. 10900 if a=8 then print"einer flasche";
  101. 11000 if a=9 then print"batman";
  102. 11100 d=int(6*rnd(1))+1
  103. 11200 if d=1 then print" dsa"
  104. 11300 if d=2 then print" schach"
  105. 11400 if d=3 then print" warlords"
  106. 11500 if d=4 then print" strip-poker"
  107. 11600 if d=5 then print" monopoly"
  108. 11700 if d=6 then print" battletech"
  109. 11800 return
  110. 11900 rem******************************
  111. 12000 b(4)=3:if b(5)=6 then b(4)=2
  112. 12100 return
  113. 12200 rem******************************
  114. 12300 if b(5)=6 then pr$(b(4))="von":goto 12500
  115. 12400 pr$(b(4))="aus":dw=1:return
  116. 12500 return
  117. 12600 rem******************************
  118. 12700 x=int(10*rnd(1))+1:ifx=b(1)then12700
  119. 12800 if v=1 then gosub 14000
  120. 12900 if v=1 then print"den ";:op=3
  121. 13000 if v=4 then print"den mann, den sie ";:rf=1
  122. 13100 if v=2 then print"zum ";
  123. 13200 if v=3 then as$=na$(x):kv=1
  124. 13300 if v<>3 then printna$(x);
  125. 13400 op=3
  126. 13500 if rf=1 then print" nannten":rf=2
  127. 13600 v=7:return
  128. 13700 rem******************************
  129. 13800 b(4)=2:return
  130. 13900 rem******************************
  131. 14000 cc=int(2*rnd(1))+1:if cc=1 then op=1:goto 14200
  132. 14100 op=2
  133. 14200 return
  134. 14300 rem******************************
  135. 14400 hj=int(5*rnd(1))+1:printaw$(hj):return
  136. 14450 rem******************************
  137. 14500 d=int(8*rnd(1))+1:printdf$(d):return
  138. 14550 rem******************************
  139. 14600 if b(4)=3 or b(4)=8 then pr$(b(4))="im magen der"
  140. 14700 return
  141. 14800 rem******************************
  142.